﻿Imports System.Data
Imports Comunes
Partial Class AppFront_Administracion_ConeccionesAJAX_AdministracionUsuariosAJAX
    Inherits cls_sesion

    Dim v_obj_libreria As New clsLibreria
    Dim v_str_respuestaJson As String = ""
    Dim objUsuariosApp As New cls_usuariosApp
    Dim v_str_pass As String = v_obj_libreria.RandomPassword()

#Region "EVENTOS DE LA PAGINA"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If USUS_USUARIO.ToString <> "" Or Request.Form("accion").ToString = "cambiarclave" Then
                Select Case Request.Form("accion").ToString
                    Case "listarUsuarios"
                        If Request("rut").ToString <> "" Then
                            objUsuariosApp.USUS_RUT = v_obj_libreria.FormatearRut(Request("rut").ToString)
                        Else
                            objUsuariosApp.USUS_RUT = ""
                        End If
                        objUsuariosApp.USUS_USUARIO = Request("usuario")
                        objUsuariosApp.numPagina = Request("start")
                        objUsuariosApp.cantPagina = Request("limit")
                        v_str_respuestaJson = objUsuariosApp.ListaUsuariosApp
                    Case "guardaDatosUsuario"
                        objUsuariosApp.USUS_NID = Request("idUsuario")
                        objUsuariosApp.USUS_RUT = Request("rut")
                        objUsuariosApp.USUS_USUARIO = Request("usuario")
                        objUsuariosApp.USUS_PASSWORD = IIf(Request("idUsuario") = "0", v_str_pass, "")
                        objUsuariosApp.USUS_NOMBRE = Request("nombre")
                        objUsuariosApp.USUS_APPATERNO = Request("appaterno")
                        objUsuariosApp.USUS_APMATERNO = Request("apmaterno")
                        objUsuariosApp.USUS_EMAIL = Request("email")
                        objUsuariosApp.USUS_TELEFONO = Request("telefono")
                        objUsuariosApp.PEPE_NID = Request("perfil")
                        objUsuariosApp.ESES_NID = Request("estado")
                        objUsuariosApp.EMEM_RUT = Request("empresa")
                        v_str_respuestaJson = objUsuariosApp.GrabaDatosUsuario()
                    Case "listarEstadosUsuarios"
                        v_str_respuestaJson = objUsuariosApp.ListarEstadosUsuarios()
                    Case "listarPerfiles"
                        v_str_respuestaJson = objUsuariosApp.ListarPerfiles()
                    Case "obtenerDatosUsuario"
                        Dim idUsuario As Integer = Request("idUsuario")
                        Dim rutUsuario As String = Request("rut")
                        objUsuariosApp.USUS_NID = idUsuario
                        objUsuariosApp.USUS_RUT = rutUsuario
                        v_str_respuestaJson = objUsuariosApp.ListaDatosUsuario()
                    Case "eliminarUsuario"
                        Dim p_int_nid_usuario As Integer = Request("p_int_nid_usuario")
                        objUsuariosApp.USUS_NID = p_int_nid_usuario
                        v_str_respuestaJson = objUsuariosApp.EliminarUsuario()
                    Case "cambiarclave"
                        objUsuariosApp.USUS_USUARIO = Request("usuario")
                        objUsuariosApp.USUS_PASSWORD = v_str_pass
                        v_str_respuestaJson = objUsuariosApp.CambiarPassword()
                End Select
                Response.Write(v_str_respuestaJson)
            Else
                Response.Write("nosession")
            End If
        Catch ex As Exception
            Response.Write("nosession")
        End Try        
    End Sub
#End Region
End Class
